(make_lispy_event): Don't set shift modifier for C-^.

diff --git a/src/keyboard.c b/src/keyboard.c
index 3e8a522a0737a895c9dbe6ad2853edee5b7bc184..09305ff14517404202df1f7bfe7fd3670727817a 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2093,7 +2093,10 @@ make_lispy_event (event)
        if ((event->modifiers & ctrl_modifier)
            && c >= 040)
          c |= ctrl_modifier;
-       if (XFASTINT (event->code) < 040
+       /* Set the shift modifier for a control char
+          made from a shifted letter.  But only for letters!  */
+       if (XFASTINT (event->code) >= 'A' - 0100
+           && XFASTINT (event->code) <= 'Z' - 0100
            && (event->modifiers & shift_modifier))
          c |= shift_modifier;
        c |= (event->modifiers